home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 October / 1984-10.d64 / teach english (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  82 lines
  1. 1 sys65517:aa=peek(781):goto62
  2. 2 diml(35),m(6,6),n$(35),r$(6):forx=1to6:fory=1to6:readm(x,y):nexty,x
  3. 3 forx=1to29:readn$(x):next:forx=1to29:readl(x):next:forx=1to6:readr$(x):next
  4. 4 l=2
  5. 5 l5=36879:ifaa=40thenl5=53281
  6. 6 ifl=1thenpokel5,104:print""
  7. 7 ifl=2thenpokel5,125:print"[144]"
  8. 8 ifl=3thenpokel5,62:print"[144]"
  9. 9 ifl=4thenpokel5,47:print"[144]"
  10. 10 ifl=5thenpokel5,11:print""
  11. 11 ifl=6thenpokel5,94:print"[144]"
  12. 12 print"[147][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":print"you are in the":printr$(l)
  13. 13 print"you can see"
  14. 14 forx=1to29:ifl(x)=lthenprintn$(x)
  15. 15 next
  16. 16 print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":goto66
  17. 17 print"what is your":input"command";a$
  18. 18 forx=1tolen(a$):ifmid$(a$,x,1)=" "andlen(a$)>x+1thenb$=mid$(a$,x+1,2)
  19. 19 next
  20. 20 iflen(a$)>1thena$=left$(a$,2)
  21. 21 v$="gogeputahiinlo"
  22. 22 n$="nosoeaweupdobechtapithsegrmubuarswshmaspoidrtrlebonecarisp"
  23. 23 fory=1tolen(v$):ifmid$(v$,y,2)=a$thenv=y+1:v=v/2
  24. 24 next:forx=1tolen(n$):ifmid$(n$,x,2)=b$thenn=x+1:n=n/2
  25. 25 next:onvgoto26,29,39,29,46,53,55,39
  26. 26 ifn>6thenprint"you can't":goto17
  27. 27 forx=1to6:ifn=xandm(l,n)>0thenl=m(l,n)
  28. 28 next:goto5
  29. 29 ifn=7orn=9orn=11thenprint"you can't":print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":goto17
  30. 30 ifn=14orn=15orn=22orn=23thenprint"you can't":print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  31. 31 ifn=14orn=15orn=22orn=23then17
  32. 32 ifb$="ar"thenl(16)=0
  33. 33 ifn=24thenprint"you can't":print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":goto17
  34. 34 ifn=26thenprint"can't, it ran away":print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":l(26)=10
  35. 35 ifn=26then17
  36. 36 ifn=27thenprint"too hot":print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":goto17
  37. 37 forx=7to29:ifn=xandl(x)=lthenl(x)=0
  38. 38 next:goto5
  39. 39 ifn=24andl=5andl(23)=10thenprint"[147]you made it!!":end
  40. 40 ifl=5andl(23)=landn=24thenprint"[147]troll puts you":print"in the dungeon."
  41. 41 ifl=5andl(23)=landn=24thenprint"   game over":end
  42. 42 forx=1to29:ifn=xandl(n)<>0thennext
  43. 43 ifl(n)<>0thenprint"don't have it":print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":goto17
  44. 44 forx=1to29:ifn=xandl(x)=0thenl(x)=l
  45. 45 next:print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":goto17
  46. 46 ifl<>5orn<>23thenprint"hurt your hand":goto17
  47. 47 ifl=5andn=23andl(17)<>0thenprint"hurt your hand"
  48. 48 ifl=5andn=23andl(17)=0andl(28)<>0thenprint"you can't"
  49. 49 ifl=5andn=23andl(17)=0andl(28)=0andl(25)<>0thenprint"you can't"
  50. 50 ifl=5andn=23andl(17)=0andl(28)=0andl(25)=0thenprint"the troll flees"
  51. 51 ifl=5andn=23andl(17)=0andl(28)=0andl(25)=0thenl(23)=10
  52. 52 goto17
  53. 53 print"[147]you are carrying":forx=1to29:ifl(x)=0thenprintn$(x)""
  54. 54 next:fori=1to1500:next:goto6
  55. 55 ifn=9andl=1thenl(28)=l:goto12
  56. 56 ifn<>14then59
  57. 57 print"the key to what you":print"seek is hidden where"
  58. 58 print"the king sleeps":goto17
  59. 59 print"you can see":forx=1to29:ifn=xandl(x)=l then61
  60. 60 forx=1to29:ifn=xandl(x)=l then61
  61. 61 next:fori=1to1000:next:goto12
  62. 62 print"[147][144]you are in a castle":print"guarded by an evil"
  63. 63 print"troll.":print"can you get out?":print"hit any key"
  64. 64 getz$:ifz$=""then64
  65. 65 goto2
  66. 66 print"exits are:":fory=1to6:ifm(l,y)>0thenprintn$(y)
  67. 67 next:print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":goto17
  68. 68 rem m(x)
  69. 69 data0,,,3,,2,4,5,6,,1,,,,1,,,6,,2,,,,,2,0,,,,,,,,2,3,0
  70. 70 rem n$(x)
  71. 71 data"north","south","east","west","up","down"
  72. 72 data"bed","chair","table","pillow","throne","scepter","grail","mural"
  73. 73 data"bunk","armor","sword","shield","mace","spears","oil","drawbridge"
  74. 74 data"troll","drawbridge lever","spell book","eye of newt","cauldron"
  75. 75 data"ring","spell"
  76. 76 rem l(x)
  77. 77 data10,10,10,10,10,10
  78. 78 data1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,5,5,5,6,6,6,10,10
  79. 79 rem r$(x)
  80. 80 data"kings bedroom","throne room","knights quarters","armory"
  81. 81 data"drawbridge room","sorcerer's room"
  82.